home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Peter Lewis / PNL Libraries / MyLogs.p < prev    next >
Encoding:
Text File  |  1994-01-23  |  994 b   |  41 lines  |  [TEXT/PJMM]
  1. unit MyLogs;
  2.     / / /
  3. interface
  4.  
  5.     procedure Log (s: str255);
  6.  
  7. implementation
  8.  
  9.     uses
  10.         PrefCodes, MyNewPreferences, MyFetchSuffix, MyFileSystemUtils, MyTypes, MyStrH;
  11.  
  12.     procedure Log (s: str255);
  13.         var
  14.             err: OSErr;
  15.             fs: FSSpec;
  16.             isfolder, wasaliase: boolean;
  17.             logrn: integer;
  18.             time: longInt;
  19.             d, t: str255;
  20.     begin
  21.         if prefs.GetTagBoolean(PC_Log) then begin
  22.             err := FSMakeFSSpec(the_prefs_folder_vrn, the_prefs_folder_dirID, GetIndStr(128, 36), fs);
  23.             if err = noErr then
  24.                 err := ResolveAliasFile(fs, true, isfolder, wasaliase);
  25.             err := FSpCreate(fs, GetTextCreator, 'TEXT', 0);
  26.             err := FSpOpenDF(fs, fsWrPerm, logrn);
  27.             if err = noErr then begin
  28.                 err := SetFPos(logrn, fsFromLEOF, 0);
  29.                 if err = noErr then begin
  30.                     GetDateTime(time);
  31.                     IUDateString(time, shortDate, d);
  32.                     IUTimeString(time, false, t);
  33.                     s := concat(d, chr(9), t, chr(9), s, cr);
  34.                     err := MyFSWrite(logrn, length(s), @s[1]);
  35.                 end;
  36.                 err := FSClose(logrn);
  37.             end;
  38.         end;
  39.     end;
  40.  
  41. end.